﻿<!-- #include file="../ding.asp" -->
<!-- #include file="../mymin.asp" -->
<%Call Head()%>
<card id="index" title="WAP页面删除"><p>
<%
dim path,TP
path=trim(request.querystring("path"))
TP=trim(request.querystring("TP"))
if path="" then
	Call Error("WML页面地址无效！")
end if

if TP<>"" then
	Dim fso,FilePath
	On Error Resume Next
	FilePath=Server.MapPath(path)
	Set fso = Server.CreateObject("Scripting.FileSystemObject")
	IF (fso.FileExists(FilePath)) Then
		Set delfile = fso.GetFile(FilePath)
		delfile.Delete
		set delfile=nothing
		if Err.Number<>0 Then
			w "主机没有权限！<br/>"
		else
			w "WML页面删除成功！<br/>"
		end if
	else
		w path & "WML页面不存在！<br/>"
	end if
	set fso=nothing
else
	w "您确认要删除该WML页面？<br/><a href=""wmldel.asp?path="&path&"&amp;TP=1&amp;sid="&sid&""">是的</a><br/>"&_
		"<anchor>取消<prev/></anchor><br/>"
end if
%><a href='wmltext.asp?sid=<%=sid%>'>[WML页面]</a><br/>
<a href="index.asp?sid=<%=sid%>">[站长工具]</a><%Call Last%>